Program indiceClient;

Uses Types;

Function indiceClient(ID_client:INTEGER ; collectionClient : TTabClient): INTEGER;

var 
	i : INTEGER;

BEGIN
	i:=1;
	WHILE((ID_client <> collectionClient.tabclient[i].ID) AND (i<=collectionClient.nbelement)) DO 
	BEGIN			//Boucle qui compare notre ID_Client à l'ID_Client de notre tableau et s'arrête sitôt qu'on se trouve à la hauteur de l'enregistrement
		i:=i + 1;
	END;
	IF(i>collectionClient.nbelement) THEN
		i:=-1;			//Si à la fin de la boucle il n'a tjrs pas trouvé il donne la valeur -1 pour définir un cas de sortie;	
	indiceClient:=i;
END;


var 

	colclient : TTabclient;
	test : INTEGER;
	
BEGIN
	colclient.nbelement:=2;
	colclient.tabclient[1].ID:=1234;
	colclient.tabclient[2].ID:=5678;
	test:=indiceClient(2365, colclient);
	WRITELN(test);
END.


